(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=LA (Andrey Lukyanov)       (<link>l_a@hotmail.ru</link>)
Title=Kinokabra
Description=Imports russian movies info with picture from Kinokabra.ru
Site=http://kinokabra.ru/
Language=RU
Version=1.01 (27.03.2005)
Requires=3.5.0
Comments=
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]

***************************************************)

program KinoKabra;
const
  BaseAddress = 'http://kinokabra.ru/';
var
  MovieName: string;
  TempStr: string;

function ParseURL(Text:String):String;
var
  BeginPos : Integer;
  EndPos : Integer;
  Value : String;
begin

  repeat
    BeginPos := Pos('<b>',Text);
    If BeginPos > 0 Then
    Begin
      EndPos := Pos('</b>',Text);
      Value := copy(Text, BeginPos, EndPos - BeginPos);
      Value := StringReplace(Value,'<BR>',', ');
      Value := StringReplace(Value,'<br>',', ');
      HTMLRemoveTags(Value);
      Delete(Text,1,EndPos);
      If Length(result)>0 Then
        result := result + ', ' + Value
      else
        result := Value;
    end;
  until BeginPos < 1;

end;

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(AnsiLowerCase(Pattern), AnsiLowerCase(List.GetString(i))) <> 0 then
    begin
      result := i;
      Break;
    end;
end;

procedure AnalyzePage(Address: string);
var
  ID, FilmName, Line: String;
  Page: TStringList;
  FilmPage: TStringList;
  BeginPos, EndPos, LineBeginPos: Integer;
begin
  Page := TStringList.Create;
  // Page.SaveToFile('c:\page.txt'); // для отладки
  // Page.LoadFromFile('c:\page.txt');
  Page.Text := GetPage(Address);
  PickTreeClear; // Очистка дерева фильмов
  PickTreeAdd('Результаты поиска фильма: ' + MovieName, '');
  LineBeginPos := 0;
  repeat
    BeginPos := FindLine('<td><a href="film.php?id=', Page, LineBeginPos+1);
    LineBeginPos := BeginPos;
    if  BeginPos > 0 then
      begin
        // Вывод фильмов в дерево
        Line:= Page.GetString(BeginPos+1); // Получить строку с адресами
        repeat
              BeginPos := Pos('<td><a href="film.php?id=',Line);
              If BeginPos > 0 Then
              // поиск возможных вариантов
              Begin
                Delete(Line,1,Pos('<td>',Line)+3); //Удаление начала

                // получаем адрес
                BeginPos:=Pos('<a href="',Line)+9;
                EndPos := Pos('">',Line);
                ID := BaseAddress+copy(Line, BeginPos, EndPos - BeginPos); // Получить адрес страницы

                // вытаскиваем название
                BeginPos := Pos('">',Line)+2;
                EndPos := Pos('</a>',Line);
                FilmName := Copy(Line, BeginPos, EndPos - BeginPos); // Получить название для выбора
                FilmName := StringReplace(FilmName,'&nbsp;',' ');
                PickTreeAdd(FilmName, ID);
              end;
        until BeginPos < 1;
      end;
   until LineBeginPos < 1;

  If  PickTreeExec(Address) Then
      AnalyzeMoviePage(Address); // Проанализировать страницу с фильмом
end;

procedure AnalyzeMoviePage(Address: String);
var
  Page: TStringList;
  LineNr : Integer;
  Line, Value, TmpStr : String;
  BeginPos, EndPos : Integer;

begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  //  Page.SaveToFile('c:\page2.txt'); // для отладки
  // Page.LoadFromFile('c:\page2.txt');

  // URL
  SetField(fieldURL,Address);

  //Rating

  // Translated Title
  TmpStr := '<b>Название фильма: &nbsp;</b>';
  LineNr := FindLine(TmpStr, Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr);
    EndPos := Pos(' / ',Line);
    Line := Copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldTranslatedTitle,Value);

  // Original Title
    Line := Page.GetString(LineNr);
    BeginPos := Pos(' / ',Line)+3;
    EndPos := Pos('</td></tr><tr>',Line);
    Line := Copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    if Value='' then Value := GetField(fieldTranslatedTitle);
    SetField(fieldOriginalTitle, Value);

  // Year
    Line := Page.GetString(LineNr);
    TmpStr := '<u>';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    EndPos := Pos('</u>',Line);
    Line := Copy(Line, 1, EndPos-1);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldYear, Value);

  //Category
    Line := Page.GetString(LineNr);
    TmpStr := '<b>Жанр: &nbsp;</b><a href="category.php?id=';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    TmpStr := '<u>';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    EndPos := Pos('&nbsp;&nbsp;</td>',Line);
    Line := Copy(Line, 1, EndPos-1);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Line := StringReplace(Line,'  ',', ');
    Value := Trim(Line);
    SetField(fieldCategory, Value);

  //Country

  // Director
    Line := Page.GetString(LineNr);
    TmpStr := '<b>Режиссер: &nbsp;</b>';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    EndPos := Pos('</td></tr>',Line);
    Line := Copy(Line, 1, EndPos-1);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Line := StringReplace(Line,'  ',', ');
    Value := Trim(Line);
    SetField(fieldDirector, Value);

  // Producer

  // Actors
    Line := Page.GetString(LineNr);
    TmpStr := 'В ролях: &nbsp;</b>';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    EndPos := Pos('</p></td></tr>',Line);
    Line := Copy(Line, 1, EndPos-1);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Line := StringReplace(Line,'  ',', ');
    Value := Trim(Line);
    SetField(fieldActors, Value);

  // Description
    Line := Page.GetString(LineNr);
    TmpStr := 'О фильме: &nbsp;</b>';
    BeginPos := Pos(TmpStr,Line)+Length(TmpStr)-1;
    Delete(Line,1,BeginPos);
    EndPos := Pos('</p></td></tr>',Line);
    Line := Copy(Line, 1, EndPos-1);
    Line := StringReplace(Line, '<br>', #13#10);
    Line := StringReplace(Line, '<BR>', #13#10);
    HTMLDecode(Line);
    HTMLRemoveTags(Line);
    Value := Trim(Line);
    SetField(fieldDescription,Value);
  end;

  // Picture
  TmpStr := '<img border="0" src="images/films/';
  LineNr := FindLine(TmpStr, Page, 0); // Начало строки с рисунком
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := Pos('src="',Line)+4;
    Delete(Line,1,BeginPos);
    EndPos := pos('" ', Line);
    Value := copy(Line, 1, EndPos-1);
    Address := BaseAddress+Value;
    GetPicture(Address);
  end;
// DisplayResults;
end;

begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    // MovieName := 'жестокие'; // для отладки
    if Input('Импорт с сайта Kinokabra.ru', 'Введите название фильма:', MovieName) then
      AnalyzePage(BaseAddress+'search.php?FilmTitle='+UrlEncode(MovieName));

end.